home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
spaceart.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
437b
|
20 lines
10 rem *** SPACE ART 10/26/85
20 rem
30 screen 1,4,0:drawmode 1
40 graphic (1)
50 scnclr
52 rgb 0,0,0,0
54 rgb 1,0,0,0
56 rgb 2,0,0,0
60 pena 1:penb 1:paint (320,100)
70 pena (rnd*14)+2
80 x1%=319:y1%=99
90 i=0:ra=rnd*3.1416+.01
100 for i=0 to 36 step .05
110 x%=280*sin(i)+x1%
120 y%=80*cos(ra*i)+y1%
130 draw (x1%,y1% to x%,y%)
140 next i
150 sleep 3*1^6
160 goto 50